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IEEE Bus Handshake Routine 


The following article is by John A. Cooke, University of Edinburgh, and is 
reprinted from the Commodore PET User's Club Newsletter, England. It is used 
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with the permission of John A. Cooke and Commodore Systems Division, London, 
Engiand. 

This article originally appeared in Issue No. 4 of Commodore PET User's 
Club Newsletter, published by Commodore Systems Division in the UK. 

While the published routine has Proved satisfactory for the particular pur- 
pose for which it was developed at the Department of Astronomy, Royal Obser- 
vatory, Edinburgh, neither Commodore Systems Division nor Mr. John A. Cooke 
can be held responsible for its validity in any particular user application. 


IEEE BUS HANDSHAKE ROUTINE IN MACHINE LANGUAGE 


To use the JEEE-488 bus on the PET at maximum speed it is necessary to use 
machine language rather than BASIC ‘INPUT’ and ‘PRINT’. The routine given here 
has been used with an HP3437A systems voltmeter to reach data transfer speeds 
of over 5000 bytes per second, corresponding to 2500 voltage readings in 2-byte 
packed binary format or 625 readings in 8-byte ASCII format. The best speed at- 
tained in BASIC is 75 readings per second transferred as character strings. 
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The IEEE Bus 


Details of the IEEE-488 bus are given in PET documentatior 
clarification of the register addresses is helpful. These are: 


Hex Decimal Bits IEEE Direction 


—820 59424 0-7 DIO 1-8 from bus 
E822 59426 0-7 DIO 1-8 to bus; ‘PET’ controlle 


£821 59425 NDAC ‘PET’ controlled 
E823 59427 DAV ‘PET’ controlled 
£840 59456 NDAC from bus 


NRFO ‘PET’ controlled 
ATN ‘PET’ controlled 
NRFD from bus 
DAV from bus 


“On CO WW 


Note that on the IEEE bus. ‘high’ is logic false and ‘low’ is logic tl 
the data bus must be left with all bits ‘high’ when PET has finished to: 
sion of data put to the bus by other devices. 


The Program 


The program controls a given number of data transfers, each 
from the HP3437A to the PET. Each one is preceded by a trigger (GET: 
ecute trigger) on the IEEE bus, and the HP3437A must be correctly ad 
‘talker’ or a ‘listener’ at all times by sending MTA (my talk address) 
listen address) before transfers as appropriate. The sending of mes 
MTA, MLA, etc.) or data is controlled by the ATN tine; ATN is 
messages are being sent. 

The program and returned data are held in the top 2K of memon 
den from BASIC usingPOKE 134 255: POKE 135,23 as the first line ¢ 
control program. The number of readings required is POKE'd into 64¢ 
then contro! passed to the machine language program by SYS(614 
bytes coming in on the IEEE bus are stored in locations 6401 (decim 
these are PEEKed out on return to BASIC, and converted into numbe 
function VAL. As the index register is used for counting, only 256 t 
transferred using this program, but it would be easy to modify the pro 
form more transfers. 

Disassembled listings with comments and a separate listing 
copying into BASIC DATA statements!) are given. 

This program was prepared using a machine tanguage handle 
the author, and the listings produced by this handler and by a modifit 
the ‘disassembie’ part of the PETSOFT ASSEMBLER ‘EXEC’ prograr 


Sid 


IEEE Bus Handshake Routine 


213 


IEEE bus handshake routine — main program 


1800 
1802 
1804 
1807 
180A 
180C 
180E 
1811 
1813 
1815 
1818 
181A 
181C 
181F 
1821 
1824 
1827 
1829 
182C 
| 182F 
1831 
| 1834 
| 1837 
| 1839 
183C 
183E 
1841 
1842 
1843 
1845 
1847 
184A 
184D 
184F 
1852 
1855 
1857 
185A 
185D 
185F 
1861 
1864 
1866 


A200 
ASFB 
2D40E8 
8D40E8 
A928 
8501 
208018 
A908 
8501 
208018 
A948 
8501 
208018 
ASFD 
2D40E8 
8D40E8 
AQF7 
2D21E8 
8D21E8 
A904 
0D40E8 
8D40E8 
A008 
208018 
A502 
9D0119 
E8 

88 
DOF4 
A9FB 
2D40E8 
8D40E8 
A902 
OD40E8 
8D40E8 
A908 
OD21E8 
8D21E8 
AS5F 
8501 
208018 
A904 
OD40E8 


LDX #00 
LDA #FB 
AND E840 
STA E840 
LDA #28 
STA 01 
JSR 1880 
LDA #08 
STA 01 
JSR 1880 
LDA #48 
STA 01 
JSR 1880 
LDA #FD 
AND E840 
STA E840 
LDA #F7 
AND E821 
STA E821 
LDA #04 
ORA E840 
STA £840 
LDY #08 
JSR 18B0 
LDA 02 
STA 1901,x 
INX 

DEY 

BNE 1839 
LDA #FB 
AND £840 
STA E840 
LDA #02 
ORA £840 
STA E840 
LDA #08 
ORA E821 
STA E821 
LDA #5F 
STA 01 
JSR 1880 
LDA #04 
ORA E840 


prepare index register 
set ATN low 
MLA (28 for this device) 


handshake into bus 
GET 


handshake 
MTA 


handshake 
set NRFD iow (ready to receive data) 
and NDAC low also 


set ATN high 


ready to count 8 bytes 
handshake data from bus 
result toA 

Store in 1901+xX 


jump if Y not zero 
set ATN low 


set NRFD high 


set NDAC high 


UNT 


handshake to bus 
set ATN high 
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{EEE bus handshake routine — main program (continued) 


1869 
186C 
186F 
1871 


subroutine 


1880 
1883 
1885 
1887 
1889 
188B 
188E 
1890 
1893 
1896 
1899 
1898 
189D 
189F 
18A2 
18A5 
18A7 
18AA 


subroutine 


18B0 
18B2 
1885 
18B8 
18BB 
18B0 
18BF 
18C2 
18C4 
18C6 
18C8 
18CB 
18CE 
18D0 
18D3 
1806 
18D9 


8D40E8 
CE0O1S 
Dog) 
60 


STA E840 
DEC 1900 
BNE 1802 
RTS 


decrease counter 
jump if not zero 
return to BASIC program 


to handle handshake into bus 


AD40E8 
2940 
FOF9 
A501 
49FF 
8D22E8 
AQF? 
2D23E8 
8D23E8 
AD40E8 
2901 
FOF9 
A908 
0D23E8 
8D23E8 
AQFF 
8D22E8 
60 


LDA E840 
AND #40 
BEQ 1880 
LDA 01 
EOR #FF 
STA E822 
LDA #F7 
AND £823 
STA E823 
LDA E840 
AND #01 
BEQ 1896 
LDA #08 
ORA £823 
STA £823 
LDA #FF 
STA E822 
RTS 


NRFD ? 

jump back if not ready 
ready: get data byte 
complement it 

send to bus 

set DAV low 

NDAC ? 

jump back if not accepted 
accepted; set DAV high 


25510 into bus 


return to main 


to handle handshake from bus 


A902 
OD40E8 


' 8D40E8 


AD40E8 
2980 
DOF9 
AD20E8 
49FF 
8502 
ASFD 
2D40E8 
8D40E8 
A908 
0D21E8 
8D21E8 
AD4OE8 
2980 


LDA #02 
ORA E840 
STA E840 
LDA £840 
AND #80 
BNE 1888 
LDA E820 
EOR #FF 
STA 02 

LDA #FD 
AND £840 
STA E840 
LDA #08 
ORA E821 
STA £821 
LDA E840 
AND #80 


set NRFD high 


DAV ? 


jump back if not valid 
get data byte from bus 
complement 

store in $ 0002 

set NRFD low 


set NDAC high 


DAV high ? 
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sutine to handle handshake from bus (continued) 


1808 FOFS BEQ 1806 jump pack if not 
1BDD AQF? LDA #F? set NDAC low 
18DF 2D21E8 AND E821 

18E2 g021E8 STA £821 

1BE5 AQFF LDA #FF 25519 into bus 
1867 8D22E8 STA £822 

4BEA 60 RTS return to main 


— bus handshake routine listing 


1800 Az 00 AQ FB 2p 40 eB 8D 
4g08 40 es AY 23 85 01 20 80 

1810 18 ag 08 85 01 20 go. (18 

1818 AQ 4g 85 01 20 80 18 AY 
4820 FD 29 40 &8 gp 40 68 AY 
1828 -F? 20 21 =£8 gD 21 eg AY 
1830 04 op 40 £8 gp 40 £8 AO 
1838 08 290 BO 18 AS 02 gp 01 

1840 19 8 88 po F4 ag FB 2D 
1848 40 es 8D 40 §8 ag o2 OD 
4850 40 —€8 8D 40 £8 ag 08 OD 
1858 21 es 8D 2} ee «AY SF 85 

1860 91 29 80 18 Ag 04 op 40 

1868 £8 gp 40 £8 ce 00 1 g po 
1870 91 60 EA EA cA EA EA EA 
1878 EA cA EA EA EA EA EA EA 
1880 AD 40 €8 29 4o FO F9 AS 
1888 (01 4g FF 8D 22 ~=«EB AQ F7 

1890 2D 93 £8 8D 23 «EB AD 40 
1998 £8 29 01 FO Fo «=O AD os O00 
48A0 23 cg 8D 23 ea AY FF 8D 
18AB 22 eg 60 EA EA EA EA EA 
4880 AS 92 op 40 6g 8D 40 £8 
4888 AD 4o €8 29 go 00 Fg AD 
48c0 20 cs 49 FF e5 02 AQ FD 
4ac8 2D 40 £8 8D 40.—s«éB Ag 08 
4gD0 OD 21 £8 8D 21 68 AD AQ 
1908 £8 99 80 FO FQ AY F7 20 
4860 21 es BD 21 es AY FF 8D 
1868 22 EB 60 
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{EEE bus handshake routine listing (continued) 


0001 data to go into bus 
0002 data from bus 


1900 counter for number of data transfers 


1901 start of results area 


wok Res per ee = | 


